Syntax:
assertFailEvt = getAssertFailEvtLong();
Returns a data structure with information about the last failed assertion. This procedure return a message text up to 1024 characters and replaces the getAssertFailEvt() procedure.
Funktionswert:
// Assertion Failure Event.
D AssertFailEvtLong_t...
D ds Qualified Based(template)
D msg Like(msgText_t)
D callStkEnt LikeDs(CallStkEnt_t)
D Dim(MAX_CALL_STK_SIZE)
D MAX_CALL_STK_SIZE...
D c Const(64)
// // Message replacement data or message text.
D msgText_t s 1024a varying based(template)
// Call Stack Entry.
D CallStkEnt_t ds Qualified Based(template)
D pgmNm 10a
D modNm 10a
D procNm 256a
D specNb 10a
Example:
assertFailEvt = getAssertFailEvt();
assert( excpWasSeen :
'aEqual( Hello : Good bye )'
+ ' should have raised an error message.' );
aEqual( 'Expected ''Hello'', but was ''Good bye''.' :
assertFailEvt.msg );